1 FOR S = 0 TO 5: POKE S +228 *(S >3),(5 -F) * NOT S: NEXT : HGR : HCOLOR= 3: HPLOT 99,63 TO 85,60: SCALE= 1: FOR A = 28 TO 82: ROT= A *2: DRAW 1: NEXT : HPLOT TO 76,90 TO 92,85 TO 80,75 TO 70,88 TO 92,84 TO 93,89: SCALE= 3: FOR B = 0 TO 63: ROT= B: DRAW 1: NEXT : SCALE= 4: FOR C = 1 TO 18: ROT= 33 -C: DRAW 1: NEXT
2 FOR N = 0 TO 10 * NOT F:F = F = 0: FOR U = N = 0 TO 63 STEP 4: ROT= U: SCALE= 29: XDRAW 1 AT 96,128: SCALE= 10: XDRAW 1 AT 50,150: FOR R = 0 TO 1: HCOLOR= R +3: ROT= U: SCALE= 15: XDRAW 1 AT 96,128: ROT= 42: SCALE= 30: XDRAW 1: ROT= U +32: SCALE= 15: XDRAW 1: HPLOT 97,66: PRINT N"------------";: NEXT R,U,N: GOTO 1
